' ***^^^***|||***^^^***
' 
'  This file is regenerated until it's edited. Delete the file to force regeneration.

'  NOTE: This denotes the way the file was created and it's possible the 
'        generation type has since changed.
'        Check the generation script for the curent state of the file.

' %%%###%%%722ffeb275ca6006d49f2ac2566ae73f%%%###%%%
' %%%##NoWS##%%%9663c5b232b03d732ceb750de6f18716%%%##NoWS##%%%
' ***^^^***|||***^^^***

  
'************************************************************************************
' Copyright © 2003-2006 Kathleen Dollard
'
' This software is provided 'as-is', without any express or implied warranty. In no 
' event will the author be held liable for any damages arising from the use of this
' software.
' 
' You may use this software for any purpose, including commercial applications, 
' and you may redistribute this software as part of application delivery: however, 
' this copyright notice may not be removed and you may not otherwise redistribute 
' this software directly other than providing a link to wwww.gendotnet.com. 
'
' You may alter this software to better server your needs (I'd like to hear about your 
' changes in order to make the software better). If you alter the softwre, you must  
' clearly mark it as altered and must not be misrepresented as the original software.
' nor wholly your original work.
'*************************************************************************************

Option Explicit On
Option Strict On

Imports System
Imports System.Collections.Generic



Public Class MapMappingRoot
   Implements IDocumentRoot

#Region "IDocumentRoot implementation"
   Private mNamespaces As Attributes

   Private Function GetNamespaces() As Attributes
      If mNamespaces Is Nothing Then
         mNamespaces = New Attributes
      End If
      Return mNamespaces
   End Function

   Public ReadOnly Property Namespaces() As Attributes _
         Implements IDocumentRoot.Namespaces
      Get
         Return mNamespaces
      End Get
   End Property

   Public Sub AddNamespace( _
           ByVal namespaceUri As String, _
           ByVal namespacePrefix As String) _
           Implements IDocumentRoot.AddNamespace
      Dim namespaces As Attributes = GetNamespaces()
      Dim bFound As Boolean = False
      For Each nspace As Attribute In namespaces
         If namespaceUri = nspace.NamespaceUri AndAlso namespacePrefix = nspace.NamespacePrefix Then
            bFound = True
         End If
      Next
      If Not bFound Then
         GetNamespaces().Add(New Attribute(namespaceUri, namespacePrefix, String.Empty, String.Empty))
      End If
   End Sub


#End Region

   Public Function GetObjectDef(ByVal name As String) As MapObjectDef
      Return Me.MapMapping.GetObjectDef(name)
   End Function

   Public Function GetByObjectName(ByVal name As String) As MapObjectDef
      Return Me.MapMapping.MapObjectDefs.GetByObjectName(name)
   End Function

   Public Function GetByTableName(ByVal name As String) As MapObjectDefCollection
      Return Me.MapMapping.MapObjectDefs.GetByTableName(name)
   End Function
End Class

Public Class MapMappingRootCollection

End Class 

	